Imports System.Xml
Imports System.Data.SqlClient
Public Class dDetalleRecibo
  Public Function Existe(ByVal idDetalleRecibo as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if idDetalleRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEidDetalleRecibo", idDetalleRecibo))
     End If
        Return (dConexion.Consultar("STORE_TblDetalleReciboBUSCARFILTRADO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
  End Function
    Public Function Insertar(ByVal idRecibo As String, ByVal idFactura As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
        End If
        If idFactura <> "" Then
            Parametros.Add(New SqlParameter("@pEidFactura", idFactura))
        End If
        Return dConexion.ABM("STORE_TblDetalleReciboALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal idRecibo As String, ByVal idDetalleRecibo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
        End If
        If idDetalleRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidDetalleRecibo", idDetalleRecibo))
        End If
        Return dConexion.ABM("STORE_TblDetalleReciboELIMINAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal idDetalleRecibo As String, ByVal idRecibo As String, ByVal idFactura As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If idDetalleRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidDetalleRecibo", idDetalleRecibo))
        End If
        If idRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
        End If
        If idFactura <> "" Then
            Parametros.Add(New SqlParameter("@pEidFactura", idFactura))
        End If
        Return dConexion.Consultar("STORE_TblDetalleReciboBUSCARFILTRADO", Parametros)
    End Function
End Class
